home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / c / ctmain.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-19  |  8.8 KB  |  256 lines
  1. char *versio = "C-Kermit CTOS/BTOS Version-2.00, 22 Jan 1993";
  2.  
  3. /* C K M A I N  --  C-Kermit Main program */
  4.  
  5. /* modified for CTOS C2.0 by Joel Dunn, UNC-CH, October 1986 */
  6. /* CTOS version 1.00 by Joel Dunn, UNC-CH, Summer 1987 */ 
  7.  
  8. /* modified to CTOS/BTOS version 2.0 by Doug Drury, and Evan Arnerich */
  9. /* ITT-Federal Services Corp, 2810 Industrial Pkwy, Santa Maria, CA   */
  10. /* This version is compatible with both CTOS and BTOS and adds some   */
  11. /* functionality that exists in the newer versions of UNIX and MS-DOS */
  12. /* Kermit.  We have tried to remain as compatible with C-Kermit 5A as */
  13. /* possible.                                                          */
  14.  
  15. /*
  16.  Authors: Frank da Cruz, Bill Catchings, Jeff Damens;
  17.  Columbia University Center for Computing Activities, 1984-85.
  18.  Copyright (C) 1985, Trustees of Columbia University in the City of New York.
  19.  Permission is granted to any individual or institution to copy or use this
  20.  program except for explicitly commercial purposes, provided this copyright
  21.  notice is retained.
  22. */
  23. /*
  24.  The Kermit file transfer protocol was developed at Columbia University.
  25.  It is named after Kermit the Frog, star of the television series THE
  26.  MUPPET SHOW; the name is used by permission of Henson Associates, Inc.
  27.  "Kermit" is also Celtic for "free".
  28. */
  29. /*
  30.  Thanks to Herm Fischer, Litton Data Systems, for extensive contributions to
  31.  version 4, and to the following people for their contributions over the years:
  32.  
  33.    Bob Cattani & Chris Maio, Columbia CS Dept
  34.    Alan Crosswell, CUCCA
  35.    Carl Fongheiser, CWRU
  36.    Jim Guyton, Rand Corp
  37.    Stan Hanks, Rice U.
  38.    Ken Harrenstein, SRI
  39.    Steve Hemminger, Tektronix
  40.    Tony Movshon, NYU
  41.    Ken Poulton, HP Labs
  42.    Dave Tweten, NASA Ames
  43.    Walter Underwood, Ford Aerospace
  44.    Pieter Van Der Linden, Centre Mondial (Paris)
  45.    Lauren Weinstein, Vortex
  46.  
  47.  and many others.
  48. */
  49.  
  50. #include "ctermi.h"
  51.  
  52. /* Text message definitions */
  53.  
  54. char *hlptxt = "C-Kermit Server\n\
  55. \n\
  56. Server Function    Customary Command to Invoke the Function\n\
  57.  Help               REMOTE HELP\n\
  58.  Finish Serving     FINISH\n\
  59.  Send File(s)       GET filespec\n\
  60.  Receive File(s)    SEND filespec\n\
  61.  Delete File(s)     REMOTE DELETE filespec\n\
  62. \n\0";
  63.  
  64. char *srvtxt = "\r\n\
  65. C-Kermit server starting.  Return to your local machine by typing\r\n\
  66. its escape sequence for closing the connection, and issue further\r\n\
  67. commands from there.  To shut down the C-Kermit server, issue the\r\n\
  68. FINISH command and then reconnect.\n\
  69. \r\n\0";
  70.  
  71. /* Declarations for Send-Init Parameters */
  72.  
  73. int spsiz =  DSPSIZ,            /* maximum packet size we can send */
  74.     maxtry = MAXTRY,            /* My retry limit (variable) */
  75.     timint = DMYTIM,            /* My timeout interval */
  76.     timef = 0,                /* Flag for override packet timeout */
  77.     npad = MYPADN,            /* How much padding to send */
  78.     mypadn = MYPADN,            /* How much padding to ask for */
  79.     chklen = 1,                /* Length of block check */
  80.     bctr = 1,                /* Block check type requested */
  81.     bctu = 1,                /* Block check type used */
  82.     ebq =  MYEBQ,            /* 8th bit prefix */
  83.     ebqflg = 0,                /* 8th-bit quoting flag */
  84.     rpt = 0,                /* Repeat count */
  85.     rptq = MYRPTQ,            /* Repeat prefix */
  86.     rptflg = 0,                /* Repeat processing flag */
  87.     capas = 0;                /* Capabilities */
  88.  
  89. char padch = MYPADC,            /* Padding character to send */
  90.     mypadc = MYPADC,            /* Padding character to ask for */
  91.     eol = MYEOL,            /* End-Of-Line character to send */
  92.     reol = MYEOL,            /* End-Of-Line character to receive */
  93.     ctlq = CTLQ,            /* Control prefix in incoming data */
  94.     myctlq = CTLQ;            /* Outbound control character prefix */
  95.  
  96.  
  97. /* Packet-related variables */
  98.  
  99. int pktnum = 0,                /* Current packet number */
  100.     prvpkt = -1,            /* Previous packet number */
  101.     sndtyp,                /* Type of packet just sent */
  102.     size,                /* Current size of output pkt data */
  103.     osize,                /* Previous output packet data size */
  104.     maxsize,                /* Max size for building data field */
  105.     spktl;                /* Length packet being sent */
  106.  
  107. char sndpkt[MAXPACK*2],         /* Entire packet being sent */
  108.     recpkt[RBUFL],             /* Packet most recently received */
  109.     data[MAXPACK+4],               /* Packet data buffer */
  110.     srvcmd[MAXPACK*2],            /* Where to decode server command */
  111.     *srvptr,                /* Pointer to above */
  112.     mystch = SOH,            /* Outbound packet-start character */
  113.     stchr = SOH;            /* Incoming packet-start character */
  114.  
  115. /* File-related variables */
  116.  
  117. char filnam[50];            /* Name of current file. */
  118.  
  119. int nfils,                /* Number of files in file group */
  120.     fsize;                /* Size of current file */
  121.  
  122. /* Communication line variables */
  123.  
  124. char ttname[50];            /* Name of communication line. */
  125.  
  126. int parity,                /* Parity specified, 0,'e','o',etc */
  127.     flow,                /* Flow control, 1 = xon/xoff */
  128.     speed = -1,                /* Line speed */
  129.     turn = 0,                /* Line turnaround handshake flag */
  130.     turnch = XON,            /* Line turnaround character */
  131.     duplex = 0,                /* Duplex, full by default */
  132.     escape = 033,          /* Escape character for connect CTOS "GO" */
  133.     delaytime = DDELAY,          /* Initial delay before sending */
  134.     mdmtyp = 0;              /* Type of modem 1=hayes 2=ventel */
  135.     termtype = 0;          /* Type of terminal, 0=none, 1=VT100 */
  136.  
  137.  
  138. /* Statistics variables */
  139.  
  140. long filcnt,            /* Number of files in transaction */
  141.     flci,            /* Characters from line, current file */
  142.     flco,            /* Chars to line, current file  */
  143.     tlci,            /* Chars from line in transaction */
  144.     tlco,                       /* Chars to line in transaction */
  145.     ffc,            /* Chars to/from current file */
  146.     tfc;            /* Chars to/from files in transaction */
  147.  
  148. /* Flags */
  149.  
  150. int deblog = 0,                /* Flag for debug logging */
  151.     pktlog = 0,                /* Flag for packet logging */
  152.     seslog = 0,                /* Session logging */
  153.     tralog = 0,                /* Transaction logging */
  154.     displa = 0,                /* File transfer display on/off */
  155.     stdouf = 0,                /* Flag for output to stdout */
  156.     xflg   = 0,                /* Flag for X instead of F packet */
  157.     hcflg  = 0,                /* Doing Host command */
  158.     fncnv  = 1,                /* Flag for file name conversion */
  159.     binary = 0,                /* Flag for binary file */
  160.     warn   = 0,                /* Flag for file warning */
  161.     quiet  = 0,                /* Be quiet during file transfer */
  162.     local  = 0,                /* Flag for external tty vs stdout */
  163.     server = 0,                /* Flag for being a server */
  164.     cnflg  = 0,                /* Connect after transaction */
  165.     cxseen = 0,                /* Flag for cancelling a file */
  166.     czseen = 0;                     /* Flag for cancelling file group */
  167.  
  168. /* Variables passed from command parser to protocol module */
  169.  
  170. char sstate  = 0;            /* Starting state for automaton */
  171. char *cmarg  = "";            /* Pointer to command data */
  172. char *cmarg2 = "";            /* Pointer to second data field */
  173. char **cmlist;                /* Pointer to file list in argv */
  174.  
  175. /* Miscellaneous */
  176.  
  177. char **xargv;                /* Global copies of argv */
  178. int  xargc;                /* and argc  */
  179.  
  180. extern char *dftty;            /* Default tty name from ckx???.c */
  181. extern int dfloc;            /* Default location: remote/local */
  182. extern int dfprty;            /* Default parity */
  183. extern int dfflow;            /* Default flow control */
  184.  
  185. /* Kermit variable handling */
  186.  
  187. char g_vars [MAXVARS][MAXVARL];
  188.  
  189.  
  190. /*  M A I N  --  C-Kermit main program  */
  191.  
  192. main(argc, argv)  int argc; char **argv; {
  193.  
  194.     char *strcpy();
  195.     int i;
  196.  
  197. /* Do some initialization */
  198.  
  199.     xargc = argc;            /* Make global copies of argc */
  200.     xargv = argv;            /* ...and argv. */
  201.     sstate = 0;                /* No default start state. */
  202.     strcpy(ttname,dftty);        /* Set up default tty name. */
  203.     local = dfloc;            /* And whether it's local or remote. */
  204.     parity = dfprty;            /* Set initial parity, */
  205.     flow = dfflow;            /* and flow control. */
  206.     for (i = 0; i < MAXVARS; i++)    /* initialize all variable buffers */
  207.         strcpy(g_vars[i], "");
  208.  
  209. /* Set up screen as one frame, use 24 to make vt100 easier */
  210.     screensetup(24);       
  211.     
  212. /* Look for a UNIX-style command line... */
  213.  
  214.     if (argc > 1) {            /* Command line arguments? */
  215.     sstate = cmdlin();        /* Yes, parse. */
  216.     if (sstate) {
  217.         proto();            /* Take any requested action, then */
  218.         if (!quiet) conoll("");    /* put cursor back at left margin, */
  219.         if (cnflg) conect();    /* connect if requested, */
  220.         doexit(0);            /* and then exit with status 0. */
  221.         }
  222.     }    
  223.     
  224. /* If no action requested on command line, enter interactive parser */
  225.  
  226.     cmdini();                /* Initialize command parser */
  227.     while(sstate = parser()) {        /* Loop getting commands. */
  228.     if (sstate) proto();        /* Enter protocol if requested. */
  229.     }
  230.  
  231.     return 0;
  232.  
  233. }
  234.  
  235. /* S C R E E N S E T U P -- Set up screen as one frame */
  236.  
  237. screensetup(nlines)
  238.  
  239. unsigned int nlines;
  240.  
  241. {
  242.     char vidattr[3];  /*0 - level of vid capability
  243.                         1 - max number of lines
  244.                         2 - max number of columns */
  245.     unsigned int smap;
  246.  
  247.     checkerc(queryvidhdw(vidattr, sizeof(vidattr)));
  248.     if (!nlines) nlines = (unsigned int) vidattr[1];
  249.         checkerc(resetvideo((unsigned int) vidattr[2],nlines,0xff,0x00,&smap));
  250.     checkerc(initvidframe(0,0,0,80,nlines,0,0,0,0,0)); 
  251.     checkerc(initcharmap(0l, smap));
  252.     checkerc(setscreenvidattr(1,0xff));
  253.     conol("\377PF");            
  254.     return(0);
  255. }
  256.